home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1997 / MacHack 1997.toast / Hacks / Hacks ’97 / Finder Dungeon / source code / MoreFiles 1.4.6 / Pascal Interfaces / FSpCompat.p < prev    next >
Encoding:
Text File  |  1997-06-28  |  2.8 KB  |  104 lines  |  [TEXT/MPS ]
  1. UNIT FSpCompat;
  2.  
  3. {    Apple Macintosh Developer Technical Support                                }
  4. {                                                                            }
  5. {    FSSpec compatibility functions                                            }
  6. {                                                                            }
  7. {    by Jim Luther, Apple Developer Technical Support Emeritus                }
  8. {                                                                            }
  9. {    File:        FSpCompat.p                                                    }
  10. {                                                                            }
  11. {    Copyright © 1992-1996 Apple Computer, Inc.                                }
  12. {    All rights reserved.                                                    }
  13. {                                                                            }
  14. {    You may incorporate this sample code into your applications without        }
  15. {    restriction, though the sample code has been provided "AS IS" and the    }
  16. {    responsibility for its operation is 100% yours.  However, what you are    }
  17. {    not permitted to do is to redistribute the source as "DSC Sample Code"    }
  18. {    after having made changes. If you're going to re-distribute the source,    }
  19. {    we require that you make it clear in the source that the code was        }
  20. {    descended from Apple Sample Code, but that you've made changes.            }
  21.  
  22.  
  23. INTERFACE
  24.  
  25.     USES
  26.         Types, Files, Finder;
  27.  
  28. {***************************************************************************}
  29.  
  30.  
  31.     FUNCTION FSMakeFSSpecCompat (vRefNum: INTEGER;
  32.                                     dirID: LONGINT;
  33.                                     fileName: Str255;
  34.                                     VAR spec: FSSpec): OSErr;
  35.  
  36.     FUNCTION FSpOpenDFCompat ({CONST}
  37.                                     VAR spec: FSSpec;
  38.                                     permission: SignedByte;
  39.                                     VAR refNum: INTEGER): OSErr;
  40.  
  41.     FUNCTION FSpOpenRFCompat ({CONST}
  42.                                     VAR spec: FSSpec;
  43.                                     permission: SignedByte;
  44.                                     VAR refNum: INTEGER): OSErr;
  45.  
  46.     FUNCTION FSpCreateCompat ({CONST}
  47.                                     VAR spec: FSSpec;
  48.                                     creator: OSType;
  49.                                     fileType: OSType;
  50.                                     scriptTag: ScriptCode): OSErr;
  51.  
  52.     FUNCTION FSpDirCreateCompat ({CONST}
  53.                                     VAR spec: FSSpec;
  54.                                     scriptTag: ScriptCode;
  55.                                     VAR createdDirID: LONGINT): OSErr;
  56.  
  57.     FUNCTION FSpDeleteCompat ({CONST}
  58.                                     VAR spec: FSSpec): OSErr;
  59.  
  60.     FUNCTION FSpGetFInfoCompat ({CONST}
  61.                                     VAR spec: FSSpec;
  62.                                     VAR fndrInfo: FInfo): OSErr;
  63.  
  64.     FUNCTION FSpSetFInfoCompat ({CONST}
  65.                                     VAR spec: FSSpec;
  66.                                     fndrInfo: FInfo): OSErr;
  67.  
  68.     FUNCTION FSpSetFLockCompat ({CONST}
  69.                                     VAR spec: FSSpec): OSErr;
  70.  
  71.     FUNCTION FSpRstFLockCompat ({CONST}
  72.                                     VAR spec: FSSpec): OSErr;
  73.  
  74.     FUNCTION FSpRenameCompat ({CONST}
  75.                                     VAR spec: FSSpec;
  76.                                     newName: Str255): OSErr;
  77.  
  78.     FUNCTION FSpCatMoveCompat ({CONST}
  79.                                     VAR source: FSSpec;
  80.                                     {CONST}
  81.                                     VAR dest: FSSpec): OSErr;
  82.  
  83.     FUNCTION FSpExchangeFilesCompat ({CONST}
  84.                                     VAR source: FSSpec;
  85.                                     {CONST}
  86.                                     VAR dest: FSSpec): OSErr;
  87.  
  88.     FUNCTION FSpOpenResFileCompat ({CONST}
  89.                                     VAR spec: FSSpec;
  90.                                     permission: SignedByte): INTEGER;
  91.  
  92.     PROCEDURE FSpCreateResFileCompat ({CONST}
  93.                                     VAR spec: FSSpec;
  94.                                     creator: OSType;
  95.                                     fileType: OSType;
  96.                                     scriptTag: ScriptCode);
  97.  
  98.  
  99. {***************************************************************************}
  100.  
  101.  
  102. IMPLEMENTATION
  103.  
  104. END.